function KKB.Panel_Buddies(Panel)
	Panel_Buddies = Panel
	Panel_Buddies:SetSize(100, 400)
	Panel_Buddies:Clear(true)
	Panel_Buddies.contents = vgui.Create("DListLayout")
	Panel_Buddies.contents:Clear()
	
	local AddButton = vgui.Create( "DButton" )
	local DeleteButton = vgui.Create( "DButton" )
	
	local ActivePlayers = vgui.Create( "DListView" )
	ActivePlayers:AddColumn( "UniqueID" )
	ActivePlayers:AddColumn( "Nick" )
	ActivePlayers:SetTall( 150 )
	ActivePlayers:SetMultiSelect( true )
	function KKB.Buddies_Reload_ActivePlayers()
		ActivePlayers:Clear()
		for _,v in pairs(player.GetAll()) do
			ActivePlayers:AddLine(v:UniqueID(),v:Nick())
		end
	end
	KKB.Buddies_Reload_ActivePlayers()
	Panel_Buddies:AddPanel(ActivePlayers)
	
	local AddButton = vgui.Create( "DButton" )
	AddButton:SetText( "Add Selected Player(s) To Buddies :]" )
	AddButton.DoClick = function( button )
		local SelectedLines = ActivePlayers:GetSelected()
		if ( #SelectedLines > 0 ) then
			local Players = {}
			for _,v in pairs(SelectedLines) do
				local PlayerID = v.Columns[1]:GetValue()
				local UniqueID = LocalPlayer():UniqueID()
				if ( KKB.Buddies[UniqueID] == nil or KKB.Buddies[UniqueID][PlayerID] == nil ) then
					table.insert(Players, PlayerID)
				end
			end
			if ( #Players > 0 ) then
				net.Start( "KKB_Buddies_Add" )
				net.WriteTable( Players )
				net.SendToServer()
			end
		end
	end
	Panel_Buddies:AddPanel(AddButton)
	
	local BuddiesList = vgui.Create( "DListView" )
	BuddiesList:AddColumn( "UniqueID" )
	BuddiesList:AddColumn( "Nick" )
	BuddiesList:SetTall( 150 )
	BuddiesList:SetMultiSelect( true )
	local function Reload_BuddiesList()
		BuddiesList:Clear()
		local UniqueID = LocalPlayer():UniqueID()
		if ( KKB.Buddies[UniqueID] != nil ) then
			for k,v in pairs(KKB.Buddies[UniqueID]) do
				BuddiesList:AddLine(k,v.Nick)
			end
		end
	end
	Reload_BuddiesList()
	Panel_Buddies:AddPanel(BuddiesList)
	
	local DeleteButton = vgui.Create( "DButton" )
	DeleteButton:SetText( "Delete Selected Player(s) From Buddies :[" )
	DeleteButton.DoClick = function( button )
		local SelectedLines = BuddiesList:GetSelected()
		if ( #SelectedLines > 0 ) then
			local Players = {}
			for _,v in pairs(SelectedLines) do
				local PlayerID = v.Columns[1]:GetValue()
				local UniqueID = LocalPlayer():UniqueID()
				if ( KKB.Buddies[UniqueID] != nil and KKB.Buddies[UniqueID][PlayerID] != nil ) then
					table.insert(Players, PlayerID)
				end
			end
			if ( #Players > 0 ) then
				net.Start( "KKB_Buddies_Delete" )
				net.WriteTable( Players )
				net.SendToServer()
			end
		end
	end
	Panel_Buddies:AddPanel(DeleteButton)
end